home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / ADEL.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-09-26  |  1.6 KB  |  84 lines
  1. $INCLUDE "REGNAMES.INC"
  2. COLOR 14
  3.  
  4. IF CheckVector(&H49)=0 THEN
  5.  SOUND 2000,2
  6.  PRINT "FEHLER: ATUtilities File Transfer ist nicht installiert!"
  7.  GOTO ende
  8. END IF
  9. GOSUB CmdAuswertung
  10.  
  11. REG %AX,(&H6*256)
  12. CALL INTERRUPT &H49
  13. segment=REG(%ES)
  14. offset=REG(%DI)
  15.  
  16. DEF SEG = segment
  17.  
  18. a$=a$+CHR$(0)
  19. FOR i=1 TO LEN(a$)
  20.  POKE offset+i-1,ASC(MID$(a$,i,1))
  21. NEXT
  22.  
  23. REG %AX,(9*256)
  24. CALL INTERRUPT &H49
  25. IF REG(%BX)=10000 THEN
  26.  PRINT "Datei/Verzeichnis ";a$;"wurde gel”scht."
  27. ELSE
  28.  PRINT "Datei/Verzeichnis ";a$;"konnte nicht gel”scht werden."
  29.  REG %AX,(10*256)
  30.  CALL INTERRUPT &H49
  31.  e=REG(%BX)
  32.  SELECT CASE e
  33.   CASE 205
  34.    x$="- Datei/Verzeichnis existiert nicht."
  35.   CASE 214
  36.    x$="- Diskette ist schreibgeschtzt."
  37.   CASE 216
  38.    x$="- Verzeichnis ist nicht leer."
  39.   CASE 222
  40.    x$="- Datei/Verzeichnis ist gegen L”schen geschtzt (Protect)."
  41.   CASE ELSE
  42.    x$=""
  43.  END SELECT
  44.  PRINT "AmigaDOS-Fehlercode:";REG(%BX);x$
  45. END IF
  46.  
  47. ende:
  48. COLOR 7
  49. END
  50.  
  51. CmdAuswertung:
  52. cmd$=COMMAND$
  53. a$=cmd$
  54. IF a$="/?" OR a$="?" OR a$="" THEN
  55.  GOTO argf
  56. END IF
  57. RETURN
  58.  
  59. argf:
  60. SOUND 2000,2
  61. PRINT "ADel - Version 1.0  Copyright (C) 1993 by Thomas Dreibholz"
  62. PRINT ""
  63. PRINT "ADel l”scht eine beliebige Amiga-Datei oder ein Verzeichnis (Delete-"
  64. PRINT "Befehl). Verzeichnisse drfen beim L”schen keine Dateien mehr"
  65. PRINT "enthalten!"
  66. PRINT ""
  67. PRINT "Aufruf: ADel [Amiga-Datei | ? | /?]"
  68. PRINT ""
  69. GOTO ende
  70.  
  71.  
  72. FUNCTION CheckVector(num) STATIC
  73.  REG %AX,(&H35*256)+num
  74.  CALL INTERRUPT &H21
  75.  segm=REG(%ES)
  76.  offs=REG(%BX)
  77.  DEF SEG = segm
  78.  IF (segm=0) OR (PEEK(offs)=207) THEN
  79.   CheckVector=0
  80.  ELSE
  81.   CheckVector=1
  82.  END IF
  83. END FUNCTION
  84.